unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, DBFUniProvider,
  AccessUniProvider, ODBCUniProvider, DB2UniProvider, PostgreSQLUniProvider,
  MySQLUniProvider, OracleUniProvider, SQLServerUniProvider, UniProvider,
  SQLiteUniProvider, FMX.TMSBaseControl, FMX.TMSSpinner,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.TMSPageSlider, FMX.TMSToolBar,
  FMX.Maps, FMX.TMSTableView, FMX.TMSGridCell, FMX.TMSGridOptions,
  FMX.TMSGridData, FMX.TMSCustomGrid, FMX.TMSGrid, IdContext, IdBaseComponent,
  IdComponent, IdCustomTCPServer, IdTCPServer;

type
  TForm1 = class(TForm)
    stat1: TStatusBar;
    IdTCPServer1: TIdTCPServer;
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
  //
end;

end.
